home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1138 / source.zip / FRMABOUT.FRM < prev    next >
Text File  |  1995-01-21  |  2KB  |  62 lines
  1. VERSION 2.00
  2. Begin Form FRMABOUT 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   3720
  6.    ClientLeft      =   1200
  7.    ClientTop       =   1668
  8.    ClientWidth     =   5736
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    FillColor       =   &H00FF0000&
  12.    ForeColor       =   &H00FF0000&
  13.    Height          =   4140
  14.    Left            =   1152
  15.    LinkTopic       =   "Form2"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   3720
  19.    ScaleLeft       =   -200
  20.    ScaleMode       =   0  'User
  21.    ScaleTop        =   -200
  22.    ScaleWidth      =   5736
  23.    Top             =   1296
  24.    Width           =   5832
  25. End
  26. Option Explicit
  27.  
  28. Sub Command1_Click ()
  29.     Unload frmabout
  30. End Sub
  31.  
  32. Sub Form_Click ()
  33.     Unload frmabout
  34. End Sub
  35.  
  36. Sub Form_Load ()
  37.     
  38.     Width = frmmain.Width * .7
  39.     Height = frmmain.Height * .7
  40.  
  41.     left = (screen.Width - Width) / 2
  42.     top = (screen.Height - Height) / 2
  43.     
  44. End Sub
  45.  
  46. Sub Form_Paint ()
  47. Dim version As String
  48.     
  49.     Print " Paperboy for Windows " & PaperboyVersion
  50.     Print " Copyright ⌐ 1995, Michael H. Vartanian"
  51.     Print " vart@clark.net"
  52.     Print " Paperboy for Windows comes with ABSOLUTELY NO WARRANTY."
  53.     Print " This is free software, and you are welcome to redistribute it"
  54.     Print " under certain conditions; for details, see file COPYING."
  55.     Print
  56.     Print " -- DLL Information --"
  57.     version = fixstr(VersionDesc()) + Chr(10)
  58.     version = version + "Version " + Str(MajorVersion()) + "." + Str(MinorVersion())
  59.     Print " "; version
  60. End Sub
  61.  
  62.